Check out my twitter script by CMXads
| Till death do us part Axels New Music releases | Evil gear Christmas is almost here | PHP Gallery PHP Gallery is a free php image script. | Sell your soul Believeth in me an hath everlasting life |
here are some of the best and useful php scripts and snippets to help in your projects. Php displayed below. Use the search for specific script lookups. Click the category links to view scripts in Javascript and cgi. To add your own script click the link and add your useful script example.
cgi affiliate tracking script simple script to incorporate into your application
cgi tracking affiliate script
#!/usr/bin/perl
##########################################################################
# Affiliate Tracker Version 1.00
package VAR;
use strict;
# URL to redirect surfers who are referred to your site by an affiliate
# site.
$VAR::URL = "http://www.yourdomain.com/";
##########################################################################
# Do NOT change or alter the code below!
##########################################################################
eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1");
require 5.004;
use CGI;
};
if ($@) {
print "Content-type: text/html\n\n";
print "Server Error Message: $@\n";
exit;
}
eval { &main; };
if ($@) {
print "Content-type: text/html\n\n";
print "Server Error Message: $@\n";
exit;
}
exit;
###############################################
# Main
###############################################
sub main {
my $ID = $ENV{'QUERY_STRING'};
my $query = new CGI;
if ($ID) {
my $cookie = $query->cookie(-name=>'RevShare_ID',
-value=>"$ID",
-expires=>'+1y',
-path=>'/');
print "Set-Cookie: $cookie\n";
}
print $query->redirect($VAR::URL);
}
####################################################################page 1
##page 2
#!/usr/bin/perl
##########################################################################
# Affilate Tracker Version 1.00
##########################################################################
use strict;
eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1");
require 5.004;
use CGI;
};
if ($@) {
print "Content-type: text/html\n\n";
print "Server Error Message: $@\n";
exit;
}
eval { &main; };
if ($@) {
print "Content-type: text/html\n\n";
print "Server Error Message: $@\n";
exit;
}
exit;
###############################################
# Main
###############################################
sub main {
my $query = new CGI;
my $ID = $query->cookie('RevShare_ID');
print "Content-Type: text/html\n\n";
if ($ID) { print qq~<input type="hidden" name="RevSharerID" value="$ID">~; }
}